home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / StateUFinal / class_descriptions.asp < prev    next >
Text File  |  1997-04-24  |  9KB  |  246 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <html>
  4. <head>
  5. <meta name="GENERATOR" content="Microsoft Developer Studio">
  6. <meta http-equiv="Content-Type"
  7. content="text/html; charset=iso-8859-1">
  8. <title>Class Descriptions</title>
  9. <link rel="STYLESHEET" href="Stylesheets/Grid/Style2.css">
  10. </head>
  11.  
  12. <body background="Images/Grid/Background/Back2.jpg"
  13. bgcolor="White">
  14. <basefont face="Arial, Helvetica, sans-serif">
  15.  
  16. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  17. <tr>
  18.    <th align="Left" nowrap bgcolor="Silver"
  19.        background="./Images/Grid/Navigation/Nav1.jpg"> <font
  20.        size="6"> Class Descriptions </font> </th>
  21. </tr>
  22. <tr>
  23.    <td bgcolor="#FFFFCC"> <font size="-1">  Classes and their Majors</font> </td>
  24. </tr>
  25. </table>
  26.  
  27. <table border=0 cellpadding=3>
  28. <tr bgcolor=silver><B>
  29.    <td>Class ID</td>
  30.    <td>Title</td>
  31.    <td>Major ID</td>
  32.    <td>Description</td></B>
  33. </tr>
  34.  
  35.  
  36. <!--METADATA TYPE="DesignerControl" startspan
  37.     <OBJECT ID="ClassMajors" WIDTH=151 HEIGHT=24
  38.      CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  39.         <PARAM NAME="_Version" VALUE="65536">
  40.         <PARAM NAME="_Version" VALUE="65536">
  41.         <PARAM NAME="_ExtentX" VALUE="3969">
  42.         <PARAM NAME="_ExtentY" VALUE="635">
  43.         <PARAM NAME="_StockProps" VALUE="0">
  44.         <PARAM NAME="DataConnection" VALUE="StateU">
  45.         <PARAM NAME="CommandText" VALUE="SELECT Classes.ClassID, Classes.Title, Majors.MajorID, Majors.Description FROM Classes INNER JOIN Majors ON Classes.MajorID = Majors.MajorID ORDER BY Classes.Title">
  46.         <PARAM NAME="CursorType" VALUE="1">
  47.         <PARAM NAME="RangeType" VALUE="2">
  48.         <PARAM NAME="PageSize" VALUE="10">
  49.     </OBJECT>
  50. -->
  51. <%
  52. fHideNavBar = False
  53. fHideNumber = False
  54. fHideRequery = False
  55. fHideRule = False
  56. stQueryString = ""
  57. fEmptyRecordset = False
  58. fFirstPass = True
  59. fNeedRecordset = False
  60. fNoRecordset = False
  61. tBarAlignment = "Left"
  62. tHeaderName = "ClassMajors"
  63. tPageSize = 10
  64. tPagingMove = ""
  65. tRangeType = "Table"
  66. tRecordsProcessed = 0
  67. tPrevAbsolutePage = 0
  68. intCurPos = 0
  69. intNewPos = 0
  70. fSupportsBookmarks = True
  71. fMoveAbsolute = False
  72.  
  73. If Not IsEmpty(Request("ClassMajors_PagingMove")) Then
  74.     tPagingMove = Trim(Request("ClassMajors_PagingMove"))
  75. End If
  76.  
  77. If IsEmpty(Session("ClassMajors_Recordset")) Then
  78.     fNeedRecordset = True
  79. Else
  80.     If Session("ClassMajors_Recordset") Is Nothing Then
  81.         fNeedRecordset = True
  82.     Else
  83.         Set ClassMajors = Session("ClassMajors_Recordset")
  84.     End If
  85. End If
  86.  
  87. If fNeedRecordset Then
  88.     Set StateU = Server.CreateObject("ADODB.Connection")
  89.     StateU.ConnectionTimeout = Session("StateU_ConnectionTimeout")
  90.     StateU.CommandTimeout = Session("StateU_CommandTimeout")
  91.     StateU.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword")
  92.     Set cmdTemp = Server.CreateObject("ADODB.Command")
  93.     Set ClassMajors = Server.CreateObject("ADODB.Recordset")
  94.     cmdTemp.CommandText = "SELECT Classes.ClassID, Classes.Title, Majors.MajorID, Majors.Description FROM Classes INNER JOIN Majors ON Classes.MajorID = Majors.MajorID ORDER BY Classes.Title"
  95.     cmdTemp.CommandType = 1
  96.     Set cmdTemp.ActiveConnection = StateU
  97.     ClassMajors.Open cmdTemp, , 1, 1
  98. End If
  99. On Error Resume Next
  100. If ClassMajors.BOF And ClassMajors.EOF Then fEmptyRecordset = True
  101. On Error Goto 0
  102. If Err Then fEmptyRecordset = True
  103. ClassMajors.PageSize = tPageSize
  104. fSupportsBookmarks = ClassMajors.Supports(8192)
  105.  
  106. If Not IsEmpty(Session("ClassMajors_Filter")) And Not fEmptyRecordset Then
  107.     ClassMajors.Filter = Session("ClassMajors_Filter")
  108.     If ClassMajors.BOF And ClassMajors.EOF Then fEmptyRecordset = True
  109. End If
  110.  
  111. If IsEmpty(Session("ClassMajors_PageSize")) Then Session("ClassMajors_PageSize") = tPageSize
  112. If IsEmpty(Session("ClassMajors_AbsolutePage")) Then Session("ClassMajors_AbsolutePage") = 1
  113.  
  114. If Session("ClassMajors_PageSize") <> tPageSize Then
  115.     tCurRec = ((Session("ClassMajors_AbsolutePage") - 1) * Session("ClassMajors_PageSize")) + 1
  116.     tNewPage = Int(tCurRec / tPageSize)
  117.     If tCurRec Mod tPageSize <> 0 Then
  118.         tNewPage = tNewPage + 1
  119.     End If
  120.     If tNewPage = 0 Then tNewPage = 1
  121.     Session("ClassMajors_PageSize") = tPageSize
  122.     Session("ClassMajors_AbsolutePage") = tNewPage
  123. End If
  124.  
  125. If fEmptyRecordset Then
  126.     fHideNavBar = True
  127.     fHideRule = True
  128. Else
  129.     tPrevAbsolutePage = Session("ClassMajors_AbsolutePage")
  130.     Select Case tPagingMove
  131.         Case ""
  132.             fMoveAbsolute = True
  133.         Case "Requery"
  134.             ClassMajors.Requery
  135.             fMoveAbsolute = True
  136.         Case "<<"
  137.             Session("ClassMajors_AbsolutePage") = 1
  138.         Case "<"
  139.             If Session("ClassMajors_AbsolutePage") > 1 Then
  140.                 Session("ClassMajors_AbsolutePage") = Session("ClassMajors_AbsolutePage") - 1
  141.             End If
  142.         Case ">"
  143.             If Not ClassMajors.EOF Then
  144.                 Session("ClassMajors_AbsolutePage") = Session("ClassMajors_AbsolutePage") + 1
  145.             End If
  146.         Case ">>"
  147.             If fSupportsBookmarks Then
  148.                 Session("ClassMajors_AbsolutePage") = ClassMajors.PageCount
  149.             End If
  150.     End Select
  151.     Do
  152.         If fSupportsBookmarks Then
  153.             ClassMajors.AbsolutePage = Session("ClassMajors_AbsolutePage")
  154.         Else
  155.             If fNeedRecordset Or fMoveAbsolute Or ClassMajors.EOF Then
  156.                 ClassMajors.MoveFirst
  157.                 ClassMajors.Move (Session("ClassMajors_AbsolutePage") - 1) * tPageSize
  158.             Else
  159.                 intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize
  160.                 intNewPos = ((Session("ClassMajors_AbsolutePage") - 1) * tPageSize) + 1
  161.                 ClassMajors.Move intNewPos - intCurPos
  162.             End If
  163.             If ClassMajors.BOF Then ClassMajors.MoveNext
  164.         End If
  165.         If Not ClassMajors.EOF Then Exit Do
  166.         Session("ClassMajors_AbsolutePage") = Session("ClassMajors_AbsolutePage") - 1
  167.     Loop
  168. End If
  169.  
  170. Do
  171.     If fEmptyRecordset Then Exit Do
  172.     If tRecordsProcessed = tPageSize Then Exit Do
  173.     If Not fFirstPass Then
  174.         ClassMajors.MoveNext
  175.     Else
  176.         fFirstPass = False
  177.     End If
  178.     If ClassMajors.EOF Then Exit Do
  179.     tRecordsProcessed = tRecordsProcessed + 1
  180. %>
  181. <!--METADATA TYPE="DesignerControl" endspan-->
  182.  
  183. <tr bgcolor=white>
  184.    <td><%=ClassMajors("ClassID")%></td>
  185.    <td><%=ClassMajors("Title")%></td>
  186.    <td><%=ClassMajors("MajorID")%></td>
  187.    <td><%=ClassMajors("Description")%></td>
  188. </tr>
  189.  
  190.  
  191. <!--METADATA TYPE="DesignerControl" startspan
  192.     <OBJECT ID="DataRangeFtr1" WIDTH=151 HEIGHT=24
  193.      CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  194.         <PARAM NAME="_Version" VALUE="65536">
  195.         <PARAM NAME="_ExtentX" VALUE="3969">
  196.         <PARAM NAME="_ExtentY" VALUE="635">
  197.         <PARAM NAME="_StockProps" VALUE="0">
  198.     </OBJECT>
  199. -->
  200. <%
  201. Loop
  202. If tRangeType = "Table" Then Response.Write "</TABLE>"
  203. If tPageSize > 0 Then
  204.     If Not fHideRule Then Response.Write "<HR>"
  205.     If Not fHideNavBar Then
  206.         %>
  207.         <TABLE WIDTH=100% >
  208.         <TR>
  209.             <TD WIDTH=100% >
  210.                 <P ALIGN=<%= tBarAlignment %> >
  211.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  212.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  213.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  214.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  215.                     <% If fSupportsBookmarks Then %>
  216.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  217.                     <% End If %>
  218.                     <% If Not fHideRequery Then %>
  219.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  220.                     <% End If %>
  221.                 </FORM>
  222.                 </P>
  223.             </TD>
  224.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  225.                 <FONT SIZE=2>
  226.                 <%
  227.                 If Not fHideNumber Then
  228.                     If tPageSize > 1 Then
  229.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  230.                     Else
  231.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  232.                     End If
  233.                 End If
  234.                 %>
  235.                 </FONT>
  236.             </TD>
  237.         </TR>
  238.         </TABLE>
  239.     <%
  240.     End If
  241. End If
  242. %>
  243. <!--METADATA TYPE="DesignerControl" endspan-->
  244. </BODY>
  245. </HTML>
  246.